Select Case in a loop something like this possible?

What I currently have:

Private Sub ComboBox1_Change()
Select Case ComboBox1.Value
Case Range("H184"): Range("H8") = Range("G184")
Case Range("H185"): Range("H8") = Range("G185")
Case Range("H186"): Range("H8") = Range("G186")
Case Range("H187"): Range("H8") = Range("G187")
End Select
End Sub

What I'd prefer (I know it's wrong but you get the gist of it):

Private Sub ComboBox1_Change()
Select Case ComboBox1.Value (For i = 4:7)
Case Range("H18%i%"): Range("H8") = Range("G18%i%")
End Select
End Sub

The above works fine, but too much typing for when there are many more cases.

i=4:7 means this:

For i = 4 To 7
CStr(Range("H18" + CStr(i)))
Next i

I'd like to loop through all of those Cases w/o having to type out each individual Case.