Just use a for loop to build the list?

set words {}
for {set n 0} {$n < 16} {incr n} {
    lappend words voltage_ptat_op$n
}