Ti basta indicizzare le Label, così le puoi gestire nel ciclo come hai detto anche tu.
Poi con un ciclo esegui la selezione:
codice:
Dim Valore As Byte
Dim Cont As Integer

Valore = 2

For Cont = Valore - 1 To 0 Step -1
  Label(Cont).BackColor = vbRed
Next Cont

For Cont = 0 To Valore - 1
  Label(Cont).BackColor = vbRed
Next Cont

Cont = Valore - 1
Do Until Cont = 0
  Label(Cont).BackColor = vbRed
  Cont = Cont - 1
Loop