Puedes utilizar un For con un salto de elementos, asignando un valor al keyword opcional Step.
Ejemplos:
Ejemplos oficiales:
➢ For...Next Statement (Visual Basic) - MSDN
Ahora, eso deberías adaptarlo para aplicarlo al código que tengas.
Saludos!
Ejemplos:
Código (vbnet) [Seleccionar]
For value As Integer = 0 To 10 Step 2
Debug.Write(value)
Next value
Código (vbnet) [Seleccionar]
Dim values As Integer() = {0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10}
For index As Integer = 0 To (values.Count - 1) Step 2
Debug.Write(values(index))
Next index
Ejemplos oficiales:
➢ For...Next Statement (Visual Basic) - MSDN
Ahora, eso deberías adaptarlo para aplicarlo al código que tengas.
Saludos!