SOLVED
The correct JSON string and correct code...
[{"name":"Pep"},{"name":"Pep"},{"name":"Pep"},{"name":"Pep"},... ...{"name":"Pep"}]
Sub Parser_JSON
Dim JSON As JSONParser
Dim Map1 As Map
Dim list1 As List
Dim i As Int
Map1.Initialize
If HTML1.Contains("name") Then '<------ optional or more complex check
JSON.Initialize(HTML1)
list1 = JSON.NextObject
For i = 0 To list1.Size -1 '<------------ no previous number of object needed
Map1 = list1.Get(i)
listaValores(i).name = Map1.Get("name")
Next
Hope will be useful for someone.
(all of this because I'm porting an App from B4A to B4i and I'm reusing complete Subs with nothing or minimal changes -UI excluded-)