Usa un ciclo annidato.
codice:
Dim i,j  
' Ciclo esterno 
For i = 0 To 22 
    Form2.Combo1.ListIndex = (i) 

    ' Ciclo interno 
    For j = 0 To 22 
        ' Fai quello che devi fare  
    Next j
 
Next i
Ciao,