Обратиться к CheckBox, расположенному на GroupBox

If GroupBox1.Visible = True Then

    Private Sub GroupGroupBoxName1(ByVal i As Integer, Optional n As Integer = 0)
       CheckStatus(GroupBox1, i, n)
       CheckStatus(GroupBox2, i, n)
       CheckStatus(GroupBox3, i, n)
       CheckStatus(GroupBox4, i, n)
       CheckStatus(GroupBox5, i, n)
       CheckStatus(GroupBox6, i, n)
    End Sub
 
    Private Sub GroupGroupBoxName2(ByVal i As Integer, Optional n As Integer = 0)
       CheckStatus(GroupBox7, i, n)
       CheckStatus(GroupBox8, i, n)
       CheckStatus(GroupBox9, i, n)
       CheckStatus(GroupBox10, i, n)
       CheckStatus(GroupBox11, i, n)
       CheckStatus(GroupBox12, i, n)
    End Sub
 
    'Вызов события по кнопке
    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        GroupGroupBoxName1(3, 4)
    End Sub

Private Sub CheckStatus(ByVal GroupBoxName As GroupBox, ByVal i As Integer, Optional ByVal n As Integer = 0)
        Dim CheckedAll As Boolean = True 'Переменная отображающая статус всех чекбоксов. 
 
        If n = 0 Then n = i
 
        If GroupBoxName.Visible = True Then
            For Each c In GroupBoxName.Controls.OfType(Of CheckBox)()
                If c.Tag <= n And c.Tag >= i And c.Checked = False Then
                    CheckedAll = False 'Если чекбокс не выделен, то CheckedAll = False и выходим из цикла
                    Exit For
                End If
            Next
        End If
 
        CheckAll(GroupBoxName, Not CheckedAll, i, n)
 
    End Sub
 
    Private Sub CheckAll(ByVal GroupBoxName As GroupBox, ByVal Checked As Boolean, ByVal i As Integer, Optional ByVal n As Integer = 0)
        If n = 0 Then n = i
 
        'Ставим или снимаем галки на всех чекбоксах в зависимости от параметра Checked (True или False)
        If GroupBoxName.Visible = True Then
            For Each c In GroupBoxName.Controls.OfType(Of CheckBox)()
                If c.Tag <= n And c.Tag >= i Then
                    c.Checked = Checked
                End If
            Next
        End If
 
    End Sub
 
    Private Sub Button5_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button5.Click
        'Вызов функции. В скобках указывается имя GroupBox`а и диапазон значений Tag
        CheckStatus(GroupBox1, 3, 4)
        'Можно в ту же кнопку дописать
        CheckStatus(GroupBox2, 3, 4)
        CheckStatus(GroupBox3, 3, 4)
        CheckStatus(GroupBox4, 3, 4)
        'Или через цикл. В групбоксы так же можно Tag прописать и по нему проверять применять CheckStatus или нет.
 
    End Sub

 If CheckedAll1 = False And GroupBox1.Visible = True Then
            CheckedAll1 = b
            CheckAll(Not b, i, n)
            Exit Sub
        'Так для 12 CheckedAll через Else If
        Else
            b = True
            CheckAll(Not b, i, n)
            Exit Sub
        End If

CheckAll(Not CheckedAll, i, n)