Dim BulkInsert As New StringBuilder("")

For i As Integer = 1 To 10
     Dim InsQry As String
     InsQry = "INSERT INTO tblSample(ID) VALUES('" & i.ToString & "')"
     BulkInsert.Append(InsQry)
     BulkInsert.Append("; ")
Next

If BulkInsert.ToString() <> "" Then 'Check if Built query has some value
     Dim conn As New SqlClient.SqlConnection("Your Connection String")
     Dim cmd As New SqlClient.SqlCommand(BulkInsert.ToString(), conn)
     cmd.ExecuteNonQuery() 'Execute the Query
End If