Muito obrigado Marcus,

       Problema resolvido!! Só alterei Nbsp por Nsim e removi o append,

#Start
bd   <- rnorm(10000) # Banco de dados
Nbsp <- 10 # Número de simulações

## Função para realização das simulações e armazenamento das informações

RES <- NULL

for(Nsim in 1:Nbsp){

     sample_bd <- sample(bd, 10)
     RES       <- cbind(rep(Nsim, length(sample_bd)), sample_bd)
     write.table(RES, paste("sorteio", sprintf("%04d", Nsim), ".txt", sep=""), row.names=F, col.names=F, append=F)

}
#End

-- 
======================================================================
Alexandre dos Santos
Proteção Florestal 
IFMT - Instituto Federal de Educação, Ciência e Tecnologia de Mato Grosso
Campus Cáceres
Caixa Postal 244
Avenida dos Ramires, s/n
Bairro: Distrito Industrial 
Cáceres - MT                      CEP: 78.200-000
Fone: (+55) 65 8132-8112 (TIM)   (+55) 65 9686-6970 (VIVO)
e-mails:alexandresantosbr@yahoo.com.br 
        alexandre.santos@cas.ifmt.edu.br 
Lattes: http://lattes.cnpq.br/1360403201088680                   
======================================================================

Em 14/10/2015 22:58, Marcus Nunes escreveu:

bd <- rnorm(10000) # Banco de dados

Nbsp <- 10 # Número de simulações

## Função para realização das simulações e armazenamento das informações

RES <- NULL

for(Nsim in 1:Nbsp){

sample_bd <- sample(bd, 10)

RES <- cbind(rep(Nbsp, length(sample_bd)), sample_bd)

write.table(RES, paste("sorteio", sprintf("%04d", Nsim), ".txt", sep=""), row.names=F, col.names=F, append=T)

}