Store Procedure While Loop Get Each Record

hi all,
I want to execute a store procedure but my query returns more than one value. how can I asign value for that. Here is the code. Please help me out.

problem is @aaa where i cannot set the value.

Thanks
Regards
Sudadg

CREATE PROCEDURE movetable
@id int

AS
declare @VType varchar(10)
declare @count int
declare @aaa varchar(50)
set nocount on
create table #temp1(id int identity(1,1),Ac_Code varchar(50))

select count(*) from Journal_Table where Voucher_No=@id
set @count=1
set @count=@@rowcount

while @count <>0
begin
set @aaa=(select Ac_Code from Journal_Table where Voucher_No =@id)
insert into #temp1(Ac_Code) values(@aaa)

set @count=@count-1
end
select * from #temp1

GO