Visual Basic.NET - Checkbox con mismo nombre

Dim ctrGastos As CheckBox

For i = 1 To 9

ctrGastos = "chbGastos" & i

   If ctrGastos.Checked = True Then

   End If

Next

Dim ctrGastos As CheckBox

        For i = 1 To 9

            ctrGastos = Me.Controls.Item("chbGastos" & i)

            If ctrGastos.Checked Then

                '

            End If

        Next

ctrGastos = CType(Me.Controls.Item("chbGastos" & i), CheckBox)