Basically, I really can't get this to work!

I've got this code:

VB Code:
  1. If Index = 0 Then txtMegaDrive.Text = "Sonic 1"
VB Code:
  1. If Index = 0 Then txtMegaDrive.BackColor = &HFFC0C0

VB Code:
  1. If Index = 1 Then txtMegaDrive.Text = "Sonic 3D"
VB Code:
  1. If Index = 1 Then txtMegaDrive.BackColor = &HFF8080

etc until index 8. Is it possible to change this stuff into a For Loop?
I got stuck after writing:
Dim Count As Integer'
For Count = 0 To 7
Next Count

Thanks very much