Non ho ben capito cosa vuoi fare cmq:

codice:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim A As Int16 = 0
    For A = 0 To NumDoc - 1
        Table1.Rows(A).Cells(1).Text = ""
        Dim CheckStampa As New System.Web.UI.WebControls.CheckBox()
        CheckStampa.Text = " "
        CheckStampa.ID = "CheckStampa" & A
        Table1.Rows(A).Cells(1).Controls.Add(CheckStampa)
        andrea(A) = Table1.Rows(A).Cells(1).FindControl("CheckStampa" & A)
    Next
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    Dim a As Int16 = 0
    For a = 0 To NumDoc - 1
        andrea(A) = Table1.Rows(A).Cells(1).FindControl("CheckStampa" & A)
        NewsSelez(a) = CType(andrea(a), CheckBox).Checked
    Next a
End Sub